home *** CD-ROM | disk | FTP | other *** search
- #include <carl/cmusic.h>
-
- ins 0 vib ;
- osc b4 p8 p9 f1 d ; {p8=depth, p9=rate}
- adn b3 b4 p7 ; {p7=main freq}
- osc b2 p6 p5 f2 d ; {p6=peakamp, p5=(1/dur)Hz}
- osc b1 b2 b3 f1 d ; {p7=freq}
- out b1 ; {}
- end ;
-
- SINE(f1);
- ENV(f2);
-
- {p1} {p2} {p3} {p4} {p5} {p6} {p7} {p8} {p9}
- note 0 vib .1 1/p4Hz 0dB A(0) p7*(2^(0.20833*p4-0.010416)-1) 9.714286-20*p4Hz ;
-
- ter;